home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / fpxobj.cpt / FP XObject / Sine Demo.rsrc / VWAC_1024 < prev    next >
Unknown  |  1992-09-16  |  869 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID raw Group 3 FAX bitmap default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 14 02 01 00 00 03 01 | 00 04 04 03 00 16 00 00 |........|........|
|00000010| 00 1b 00 00 00 1b 00 00 | 00 1b 05 01 00 1b 06 01 |........|........|
|00000020| 01 1b 07 01 01 54 00 00 | 02 fc 00 00 02 fc 00 00 |.....T..|........|
|00000030| 02 fc 00 00 02 fc 00 00 | 02 fc 00 00 02 fc 00 00 |........|........|
|00000040| 02 fc 00 00 02 fc 00 00 | 02 fc 00 00 02 fc 08 01 |........|........|
|00000050| 02 fc 05 00 03 0f 71 75 | 69 74 67 6f 20 74 6f 20 |......qu|itgo to |
|00000060| 66 72 61 6d 65 20 22 69 | 6e 66 6f 22 70 61 75 73 |frame "i|nfo"paus|
|00000070| 65 2d 2d 20 69 6e 69 74 | 69 61 69 6c 69 7a 65 20 |e-- init|iailize |
|00000080| 76 61 72 69 61 62 6c 65 | 73 0d 73 65 74 20 6d 69 |variable|s.set mi|
|00000090| 6e 78 3d 74 68 65 20 6c | 65 66 74 20 6f 66 20 73 |nx=the l|eft of s|
|000000a0| 70 72 69 74 65 20 32 0d | 73 65 74 20 6d 61 78 78 |prite 2.|set maxx|
|000000b0| 3d 74 68 65 20 72 69 67 | 68 74 20 6f 66 20 73 70 |=the rig|ht of sp|
|000000c0| 72 69 74 65 20 32 0d 73 | 65 74 20 77 69 64 78 3d |rite 2.s|et widx=|
|000000d0| 6d 61 78 78 2d 6d 69 6e | 78 0d 73 65 74 20 6d 69 |maxx-min|x.set mi|
|000000e0| 6e 79 3d 74 68 65 20 74 | 6f 70 20 6f 66 20 73 70 |ny=the t|op of sp|
|000000f0| 72 69 74 65 20 33 0d 73 | 65 74 20 6d 61 78 79 3d |rite 3.s|et maxy=|
|00000100| 20 74 68 65 20 62 6f 74 | 74 6f 6d 20 6f 66 20 73 | the bot|tom of s|
|00000110| 70 72 69 74 65 20 33 0d | 73 65 74 20 77 69 64 79 |prite 3.|set widy|
|00000120| 3d 6d 61 78 79 2d 6d 69 | 6e 79 0d 73 65 74 20 74 |=maxy-mi|ny.set t|
|00000130| 77 6f 70 69 3d 36 2e 32 | 38 0d 73 65 74 20 79 6f |wopi=6.2|8.set yo|
|00000140| 66 73 3d 6d 69 6e 79 2b | 28 77 69 64 79 2f 32 2e |fs=miny+|(widy/2.|
|00000150| 30 29 0d 73 65 74 20 78 | 3d 6d 69 6e 78 0d 0d 67 |0).set x|=minx..g|
|00000160| 6f 20 74 6f 20 66 72 61 | 6d 65 20 22 64 72 61 77 |o to fra|me "draw|
|00000170| 22 69 66 20 78 3c 6d 61 | 78 78 20 74 68 65 6e 20 |"if x<ma|xx then |
|00000180| 0d 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |.  go to| frame "|
|00000190| 64 72 61 77 22 0d 65 6c | 73 65 0d 20 20 70 61 75 |draw".el|se.  pau|
|000001a0| 73 65 0d 65 6e 64 20 69 | 66 0d 2d 2d 20 70 6c 6f |se.end i|f.-- plo|
|000001b0| 74 20 61 20 73 69 6e 65 | 20 63 75 72 76 65 20 77 |t a sine| curve w|
|000001c0| 69 74 68 20 74 68 65 20 | 68 61 70 70 79 20 66 61 |ith the |happy fa|
|000001d0| 63 65 21 0d 70 75 70 70 | 65 74 53 70 72 69 74 65 |ce!.pupp|etSprite|
|000001e0| 20 32 34 2c 54 52 55 45 | 0d 2d 2d 20 63 6f 6e 76 | 24,TRUE|.-- conv|
|000001f0| 65 72 74 20 78 20 69 6e | 74 6f 20 72 61 64 69 61 |ert x in|to radia|
|00000200| 6e 73 20 66 72 6f 6d 20 | 30 20 74 6f 20 32 70 69 |ns from |0 to 2pi|
|00000210| 0d 73 65 74 20 78 72 3d | 28 78 2d 6d 69 6e 78 29 |.set xr=|(x-minx)|
|00000220| 2a 28 74 77 6f 70 69 2f | 77 69 64 78 29 0d 2d 2d |*(twopi/|widx).--|
|00000230| 20 63 61 6c 63 75 6c 61 | 74 65 20 73 69 6e 65 20 | calcula|te sine |
|00000240| 76 61 6c 75 65 0d 73 65 | 74 20 79 72 3d 28 2d 31 |value.se|t yr=(-1|
|00000250| 2e 30 29 2a 66 70 28 6d | 53 69 6e 2c 78 72 29 0d |.0)*fp(m|Sin,xr).|
|00000260| 2d 2d 20 63 6f 6e 76 65 | 72 74 20 74 68 65 20 79 |-- conve|rt the y|
|00000270| 20 76 61 6c 75 65 20 62 | 61 63 6b 20 74 6f 20 73 | value b|ack to s|
|00000280| 63 72 65 65 6e 20 63 6f | 6f 72 64 69 6e 61 74 65 |creen co|ordinate|
|00000290| 73 0d 73 65 74 20 79 3d | 69 6e 74 65 67 65 72 28 |s.set y=|integer(|
|000002a0| 79 72 2a 28 77 69 64 79 | 2f 32 2e 30 29 2b 79 6f |yr*(widy|/2.0)+yo|
|000002b0| 66 73 29 0d 2d 2d 20 6e | 6f 77 20 64 72 61 77 20 |fs).-- n|ow draw |
|000002c0| 61 20 6e 65 77 20 68 61 | 70 70 79 20 66 61 63 65 |a new ha|ppy face|
|000002d0| 0d 73 65 74 20 74 68 65 | 20 6c 6f 63 48 20 6f 66 |.set the| locH of|
|000002e0| 20 73 70 72 69 74 65 20 | 32 34 20 74 6f 20 78 0d | sprite |24 to x.|
|000002f0| 73 65 74 20 74 68 65 20 | 6c 6f 63 56 20 6f 66 20 |set the |locV of |
|00000300| 73 70 72 69 74 65 20 32 | 34 20 74 6f 20 79 0d 75 |sprite 2|4 to y.u|
|00000310| 70 64 61 74 65 53 74 61 | 67 65 0d 73 65 74 20 78 |pdateSta|ge.set x|
|00000320| 3d 78 2b 37 0d 70 75 70 | 70 65 74 53 70 72 69 74 |=x+7.pup|petSprit|
|00000330| 65 20 32 34 2c 46 41 4c | 53 45 0d 67 6f 20 74 6f |e 24,FAL|SE.go to|
|00000340| 20 66 72 61 6d 65 20 22 | 64 72 61 77 6c 6f 6f 70 | frame "|drawloop|
|00000350| 22 0d 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 73 |".go to |frame "s|
|00000360| 74 61 72 74 22          |                         |tart"   |        |
+--------+-------------------------+-------------------------+--------+--------+